www.gusucode.com > 网域标准通用企业自助建站系统正式版 2009 > 网域标准通用企业自助建站系统正式版 2009.18/网域公司企业网站管理系统ACCESS和SQL正式版/网域公司企业网站管理系统ACCESS正式版/EnUserLogin.asp
<!--#include file="inc/conn.asp"--> <!--#include file="inc/md5.asp"--> <% dim sql dim rs dim username dim password username=replace(trim(request("username")),"'","") password=replace(trim(Request("password")),"'","") password=md5(password) set rs=server.createobject("adodb.recordset") sql="select * from [User] where LockUser=False and username='" & username & "' and password='" & password &"'" rs.open sql,conn,1,3 if not(rs.bof and rs.eof) then if password=rs("password") then rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR") rs("LastLoginTime")=now() rs("logins")=rs("logins")+1 rs.update session("UserName")=rs("username") Response.Redirect "Enindex.asp" end if end if rs.close conn.close set rs=nothing set conn=nothing %> <html> <head> <style type="text/css"> <!-- td { font-family: "宋体"; font-size: 9pt; color: #333333; text-decoration: none} --> </style> </head> <body> <br><br><br> <table align='center' width='300' border='0' cellpadding='4' cellspacing='0' class='border'> <tr > <td height='15' colspan='2' align="center" class='title'>Operate: Confirm ID failure!</td> </tr> <tr> <td height='23' colspan='2' align="center" class='tdbg'> <br> <br> Username or password mistake! Or this account is locked!<br> <br> <a href='javascript:onclick=history.go(-1)'>[Return]</a> <br> <br></td> </tr></table> </body></html>